inherited rstToDo: TrstToDo
  Left = 313
  Top = 138
  Width = 954
  Height = 728
  Caption = #1056#1077#1077#1089#1090#1088' '#1088#1072#1073#1086#1090' '#1087#1086' '#1076#1086#1083#1075#1072#1084
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 946
    inherited ToolButton1: TToolButton
      Visible = False
    end
  end
  inherited DBGridEh1: TDBGridEh
    Width = 946
    Height = 635
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    RowHeight = 36
    RowSizingAllowed = True
    OnCellMouseClick = DBGridEh1CellMouseClick
    OnDblClick = aRecordEditExecute
    OnGetCellParams = DBGridEh1GetCellParams
    OnMouseDown = DBGridEh1MouseDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'RID'
        Footers = <>
        Width = 49
      end
      item
        EditButtons = <>
        FieldName = 'RWORKDESC'
        Footers = <>
        Width = 164
      end
      item
        EditButtons = <>
        FieldName = 'RWORKDATE'
        Footers = <>
      end
      item
        Alignment = taCenter
        Checkboxes = True
        EditButtons = <>
        FieldName = 'RWORKSTATUS'
        Footers = <>
        Layout = tlCenter
        Title.Orientation = tohVertical
        Width = 33
      end
      item
        Alignment = taCenter
        Checkboxes = True
        EditButtons = <>
        FieldName = 'RALARM'
        Footers = <>
        Layout = tlCenter
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clRed
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Orientation = tohVertical
        Width = 29
      end
      item
        EditButtons = <>
        FieldName = 'RDEBT_ID'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'RNAME'
        Footers = <>
        Width = 131
      end
      item
        EditButtons = <>
        FieldName = 'RADDRESS'
        Footers = <>
        Width = 126
      end
      item
        EditButtons = <>
        FieldName = 'RSUMMA'
        Footers = <>
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'RPAIDSUMMA'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'RNOTES'
        Footers = <>
        Width = 103
      end>
  end
  inherited StatusBar1: TStatusBar
    Top = 675
    Width = 946
  end
  inherited dsReestr: TpFIBDataSet
    RefreshSQL.Strings = (
      'SELECT'
      '    p.RID,'
      '    p.RWORKDESC,'
      '    p.RWORKDATE,'
      '    p.RWORKSTATUS,'
      '    p.RALARM,'
      '    p.RDEBT_ID,'
      '    p.RSUMMA,'
      '    p.RNAME,'
      '    p.RADDRESS'
      'FROM'
      '    PR_RST_TODO(:PMAINPARAMS) p')
    SelectSQL.Strings = (
      'SELECT'
      ' p.rid,'
      '    p.rworkdesc,'
      '    p.rworkdate,'
      '    p.rworkstatus,'
      '    p.ralarm,'
      '    p.rdebt_id,'
      '    p.rname,'
      '    p.rsumma,'
      '    p.rnotes,'
      '    p.raddress,'
      '    p.rpaidsumma'
      'FROM'
      '    PR_RST_TODO(:PMAINPARAMS) p')
    object dsReestrRID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'RID'
    end
    object dsReestrRWORKDESC: TFIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'RWORKDESC'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReestrRWORKDATE: TFIBDateField
      DisplayLabel = #1053#1072' '#1076#1072#1090#1091
      FieldName = 'RWORKDATE'
    end
    object dsReestrRWORKSTATUS: TFIBSmallIntField
      DisplayLabel = #1042#1099#1087#1086#1083#1085#1077#1085#1072
      FieldName = 'RWORKSTATUS'
    end
    object dsReestrRALARM: TFIBSmallIntField
      DisplayLabel = #1057#1088#1086#1095#1085#1072#1103
      FieldName = 'RALARM'
    end
    object dsReestrRDEBT_ID: TFIBIntegerField
      FieldName = 'RDEBT_ID'
    end
    object dsReestrRNAME: TFIBStringField
      DisplayLabel = #1044#1086#1083#1075'|'#1060#1048#1054
      FieldName = 'RNAME'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReestrRADDRESS: TFIBStringField
      DisplayLabel = #1044#1086#1083#1075'|'#1040#1076#1088#1077#1089
      FieldName = 'RADDRESS'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReestrRSUMMA: TFIBBCDField
      DisplayLabel = #1044#1086#1083#1075'|'#1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsReestrRPAIDSUMMA: TFIBBCDField
      DisplayLabel = #1044#1086#1083#1075'|'#1054#1087#1083#1072#1095#1077#1085#1086
      FieldName = 'RPAIDSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsReestrRNOTES: TFIBStringField
      DisplayLabel = #1047#1072#1084#1077#1090#1082#1080
      FieldName = 'RNOTES'
      Size = 1000
      EmptyStrToNull = True
    end
  end
  object ActionList2: TActionList
    Left = 458
    Top = 8
    object aShowDebt: TAction
      Caption = #1054#1090#1082#1088#1099#1090#1100' '#1082#1072#1088#1090#1086#1095#1082#1091' '#1076#1086#1083#1075#1072
      Hint = #1054#1090#1082#1088#1099#1090#1100' '#1082#1072#1088#1090#1086#1095#1082#1091' '#1076#1086#1083#1075#1072
      OnExecute = aShowDebtExecute
    end
    object aAddToDosByToDos: TAction
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1088#1072#1073#1086#1090#1099' '#1087#1086' '#1074#1089#1077#1084' '#1076#1086#1083#1075#1072#1084' '#1088#1072#1073#1086#1090', '#1074#1099#1073#1088#1072#1085#1085#1099#1084' '#1074' '#1090#1072#1073#1083#1080#1094#1077
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1088#1072#1073#1086#1090#1099' '#1087#1086' '#1074#1089#1077#1084' '#1076#1086#1083#1075#1072#1084' '#1088#1072#1073#1086#1090', '#1074#1099#1073#1088#1072#1085#1085#1099#1084' '#1074' '#1090#1072#1073#1083#1080#1094#1077
      OnExecute = aAddToDosByToDosExecute
    end
    object aChangeMassToDo: TAction
      Caption = #1052#1072#1089#1089#1086#1074#1086#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1074#1086#1081#1089#1090#1074' '#1088#1072#1073#1086#1090
      OnExecute = aChangeMassToDoExecute
    end
  end
  object qDelToDo: TpFIBQuery
    Transaction = trDelToDo
    Database = MAINDM.MainDB
    SQL.Strings = (
      'UPDATE RST_TODO'
      '  set IS_DELETED=1'
      'WHERE'
      '    ID=:ptodo_id')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 36
    Top = 168
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object trDelToDo: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 80
    Top = 166
  end
  object PopupMenu1: TPopupMenu
    Left = 252
    Top = 212
    object N1: TMenuItem
      Action = aShowDebt
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = aChangeMassToDo
    end
    object N3: TMenuItem
      Action = aAddToDosByToDos
    end
  end
  object dsToDoAdd: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RCNT'
      'FROM'
      '    PR_TODO_ADD_MASS(:PDEBTSPARAMS,'
      '    :PDEBTADDPARAMS,'
      '    :PTODOPARAMS,'
      '    :PWORKTYPE,'
      '    :PDESC,'
      '    :PWORKER,'
      '    :PWORKDATE,'
      '    :PALARM,'
      '    :PWARNTYPE) ')
    Transaction = trMassOperations
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 40
    Top = 264
  end
  object trMassOperations: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 80
    Top = 266
  end
  object dsChangeMass: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RRESULT'
      'FROM'
      '    PR_TODO_CHANGEMASS(:PTODOPARAMS,'
      '    :PMAINPARAMS) ')
    Transaction = trMassOperations
    Database = MAINDM.MainDB
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 40
    Top = 300
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 44
    Top = 342
  end
end
